home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / gcc / libmat.lha / src / mqr.cc < prev    next >
C/C++ Source or Header  |  1980-01-01  |  307b  |  19 lines
  1. //                MATRIX LIB
  2. //            TOMMY JOHANSSON 1995
  3.  
  4. Matrix Householder(const Matrix & x)
  5. {
  6.     return(I(x.n)-2*x*T(x)/(x*T(x)));
  7. }
  8. #include "matrix.h"
  9. void QR(const Matrix & A,Matrix & Q,Matrix & R)
  10. {
  11.     int i,j;
  12.     Matrix h(A.m,1);
  13.     #ifdef DEBUG 
  14.     printf("QR-faktoriserar matris.\n");
  15.     #endif
  16.     
  17.     for(i=1;i<=A.m;i++)
  18.     {
  19.